home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 16 / 64er_Magazin_Sonderheft_16_19xx_Markt__Technik_de_Side_A.d64 / ls 9 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  1.3 KB  |  76 lines
  1. 100 rem programmstart bewegen,animation
  2. 110 rem und kollision
  3. 120 rem
  4. 130 rem vorbereitungen
  5. 140 rem
  6. 150 rem farben
  7. 160 poke53280,5:poke53281,0
  8. 170 poke 53285,8:poke53286,11:poke53287,7
  9. 180 rem
  10. 190 xreg=53248:xlauf=53264
  11. 200 yreg=53249:koll=53279
  12. 210 bl=128:ba=128:be=135
  13. 220 rem
  14. 230 pokekoll,0:rem kollision loeschen
  15. 240 poke53276,1:rem sprite 0 multicolor
  16. 250 poke2040,bl:rem  spritezeiger auf ersten block
  17. 260 pokexreg,0:pokexlauf,0:pokeyreg,117:rem anfangspos.
  18. 270 poke 53269,1:rem sprite 0 an
  19. 280 gosub490
  20. 290 rem
  21. 300 rem sprite animieren
  22. 310 rem
  23. 320 gosub670:rem joystickabfrage
  24. 330 if xp<=255 then poke xlauf,0
  25. 340 if xp>255 then poke xlauf,1:xp=xp-255
  26. 350 poke xreg,xp
  27. 360 gosub420:rem animation
  28. 370 gosub580:rem kollision
  29. 380 goto320
  30. 390 rem
  31. 400 rem naechster block
  32. 410 rem
  33. 420 bl=bl+1
  34. 430 ifbl>bethenbl=ba
  35. 440 poke2040,bl:rem bildwechsel
  36. 450 return
  37. 460 rem
  38. 470 rem boden zeichnen
  39. 480 rem
  40. 490 print"[147]";
  41. 500 forw=1to40:print" ";:nextw
  42. 510 print"[146]"
  43. 520 print"";
  44. 530 forw=1to5:printtab(28)" [146]":nextw
  45. 540 return
  46. 550 rem
  47. 560 rem kollisionsabfrage
  48. 570 rem
  49. 580 ifpeek(koll)=0thenreturn
  50. 590 ifpeek(53277)=0thenxp=xp-40:pokexreg,xp:poke53277,1:goto610
  51. 600 poke53277,0
  52. 610 pokekoll,0:rem kollisionsregister
  53. 620 rem            loeschen
  54. 630 return
  55. 640 rem
  56. 650 rem joystickabfrage
  57. 660 rem
  58. 670 joy=peek(56321)
  59. 680 ifjoy=251then740
  60. 690 ifjoy=247then810
  61. 700 goto670
  62. 710 rem
  63. 720 rem joystick links
  64. 730 rem
  65. 740 xp=xp-3:ifxp<0thenxp=0
  66. 750 ifbl>135thenreturn
  67. 760 ba=136:be=143:bl=bl+8
  68. 770 return
  69. 780 rem
  70. 790 rem joystick rechts
  71. 800 rem
  72. 810 xp=xp+3
  73. 820 ifbl<136thenreturn
  74. 830 ba=128:be=135:bl=bl-8
  75. 840 return
  76.